home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
rexx
/
texumlaute.ged
< prev
next >
Wrap
Text File
|
1995-03-15
|
1KB
|
51 lines
/* $VER: 0.9, ©1993 Dietmar Eilert. Empty GoldED macro */
OPTIONS RESULTS /* enable return codes */
if (LEFT(ADDRESS(), 6) ~= "GOLDED") then /* not started by GoldEd ? */
address 'GOLDED.1'
'LOCK CURRENT' /* lock GUI, gain access */
OPTIONS FAILAT 6 /* ignore warnings */
SIGNAL ON SYNTAX /* ensure clean exit */
/* TeX-Umlaut-macro */
/* ä ö ü Ä Ö Ü ß ---> \"a \"o \"u \"A \"O \"U \ss{} */
/* ersetze ununterbrochen */
/* replace continously */
'REQUEST HIDE=TRUE'
/* springe in die erste zeile und in die erste spalte */
/* jump to first line and first column */
'GOTO TOP'
'FIRST'
/* und ersetze ... */
/* and replace ... */
'REPLACE STRING ä BY \"a ALL case QUIET'
'REPLACE STRING ü BY \"u ALL case QUIET'
'REPLACE STRING ö BY \"o ALL case QUIET'
'REPLACE STRING ß BY \ss{} ALL case QUIET'
'REPLACE STRING Ä BY \"A ALL case QUIET'
'REPLACE STRING Ü BY \"U ALL case QUIET'
'REPLACE STRING Ö BY \"O ALL case QUIET'
'REQUEST HIDE=FALSE'
/* ---------------------------- END OF YOUR CODE --------------------- */
'UNLOCK' /* VERY important: unlock GUI */
EXIT
SYNTAX:
SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
'UNLOCK'
EXIT